home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 8 / developer source - volume 8.iso / delph / aug95 / ripp1f9.gif < prev   
Graphics Interchange Format  |  1996-11-16  |  5.8 KB  |  582x245  |  4-bit (5 colors)
   ocr: COPY.PAS procedure TForml.Buttoniclick(Sender: TObject); var fieldNumber : Integer; begin Table2.Edit; Table2.Insert; for lelaumber : 0 to Tablel.FieldCount - 1 do Table2.Fields(fieldNumber).Assign(Tablel.FieldsIfielaNumber]); Tablez.Post; end; 41: 1 Modified Insert Copy_rec Copy/